home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 October / 1984-10.d64 / turtle graphics (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  741 b   |  20 lines
  1. 10 rem turtle boot
  2. 20 poke 53281, 6
  3. 30 print chr$(147); chr$(154) tab(10) "turtle graphics boot": print: print
  4. 40 print "this program will load and run the"
  5. 50 print "turtle data and interpreter programs.": print
  6. 60 print "while they are loading the screen will"
  7. 70 print "blank.": print
  8. 80 print "do not remove the disk until the"
  9. 90 print "interpreter prompts you for your first"
  10. 100 print "command.": print: print: poke 198, 0
  11. 110 print "press " chr$(18) "space" chr$(146) " when ready"
  12. 120 geta$: if a$="" then 120
  13. 130 q$=chr$(34): d$=chr$(17)
  14. 140 print chr$(147); chr$(31); d$; d$; d$ "poke 16384, 0: poke 44, 64: new"
  15. 150 print d$; d$ "load" q$ "turtle graphic 2" q$ ",8"
  16. 160 print d$; d$; d$; d$; d$ "run"
  17. 170 print d$; d$ "load" q$ "turtle graphic 1" q$ ",8"
  18. 180 print d$; d$; d$; d$; d$ "run" chr$(19)
  19. 190 for k= 1 to 7: poke 630+k, 13: next: poke 198, 7
  20.